home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / misc / sci / AquaSim1_0.lha / InstallAquaSim / AquaSimInstaller < prev    next >
Encoding:
Text File  |  1995-05-18  |  1.9 KB  |  126 lines
  1. ; $VER: Install-3D Aquarium Simulator 1.0 ( 17-5-1995 )
  2.  
  3. ;
  4. ; Messages
  5. ;
  6.  
  7. (set #install-msg
  8. (cat "\n 3D Aquarium Simulator Insallation Script\n"
  9.     "This script installs 3D Aquarium Simulator\non your Amiga\n"
  10.     "Read documentation for details\n"
  11.     "3D Aquarium Simulator © 1995 Giuseppe Chiesa\n"
  12.     "All rights reserved\n"
  13. ))
  14.  
  15. (set #AquaSimdrawer
  16. (cat "\nPlease select a directory in which a new directory\n"
  17.     "named AQUA will be created\n"
  18. ))
  19.  
  20. (set #create-AquaSim-dir
  21. (cat "\nCreating Destination Directory\n"
  22. ))
  23.  
  24. (set #unpacking-data
  25. (cat "\nUnpacking data\n"
  26. ))
  27.  
  28. (set #installing-data
  29. (cat "\nInstalling data\n"
  30. ))
  31.  
  32. (set #add-assign
  33. (cat "\nAdding Assigns. Addign AQUA: Assign now\n"
  34. ))
  35.  
  36. (set #adding-assign
  37. (cat "\nAdding Assign to your S:User-Startup\n"
  38. ))
  39.  
  40. (set #exit-msg
  41. (cat "\nHave Fun with 3D Simulator Aquarium\n"
  42.     "If you use it contact me! E-Mail : chieg@ghost.dsi.unimi.it"
  43. ))
  44.  
  45. ;
  46. ; Startup Message
  47. ;
  48. ( message #install-msg )
  49.  
  50. ;
  51. ; Set Initial Dir
  52. ;
  53. ( set AQUADIR "RAM:" )
  54.  
  55. ;
  56. ; Ask Dir
  57. ;
  58.     (set AQUADIR
  59.         ( askdir
  60.             (prompt #AquaSimDrawer)
  61.             (default AQUADIR)
  62.             (help @askdir-help)
  63.         )
  64.     )
  65.  
  66. ;
  67. ; Create Dir
  68. ;
  69.     (set AQUAPARENT AQUADIR)
  70.     (set AQUADIR (tackon AQUADIR "AQUA"))
  71.     (makedir (AQUADIR)
  72.         (prompt #create-AquaSim-dir)
  73.         (help @makedir-help)
  74.     )
  75. ;
  76. ; Unpacking Data
  77. ;
  78.  
  79. (working (#unpacking-data))
  80.  
  81. (run "LhX x AquaSimArchive.lha RAM:")
  82.  
  83. (run "RAM:AQUASIM/TouchAquarium RAM:AQUASIM/Aquaria/SamplAquarium.aqm")
  84.  
  85. (copyfiles
  86.     (prompt (#installing-data))
  87.     (help @copyfiles-help)
  88.     (source "RAM:AQUASIM")
  89.     (pattern "#?")
  90.     (dest AQUADIR)
  91. )
  92.  
  93. (copyfiles
  94.     (prompt "Drawer")
  95.     (help @copyfiles-help)
  96.     (source "RAM:AQUASIM.info")
  97.     (dest AQUAPARENT)
  98.     (newname "AQUA.info")
  99. )
  100.  
  101. ;
  102. ; Clean Up
  103. ;
  104. (run "Delete RAM:AQUASIM ALL")
  105. (run "Delete RAM:AQUASIM.info")
  106.  
  107. ;
  108. ; Doing Assigns
  109. ;
  110.  
  111. (message #add-assign)
  112.  
  113. (makeassign "AQUA" AQUADIR)
  114. (startup "AQUA"
  115.     (command ("Assign AQUA: \"%s\"\n" AQUADIR))
  116.     (prompt #adding-assign)
  117.     (help @adding-help)
  118. )
  119.  
  120. ;
  121. ; Exit
  122. ;
  123. (set @default-dest AQUAPARENT)
  124. (exit #exit-msg)
  125.  
  126.